home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / STATES.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  976b  |  36 lines
  1. ' STATES.BAS
  2. ' This program displays information about one of three states.
  3.  
  4. CLS
  5.  
  6. PRINT "Which of the following states would you like to know about?"
  7. PRINT
  8. PRINT "   1) Washington"
  9. PRINT "   2) Virginia"
  10. PRINT "   3) Minnesota"
  11. PRINT
  12. INPUT "State (1-3):  ", reply%
  13. PRINT
  14.  
  15. SELECT CASE reply%
  16.     CASE 1
  17.         PRINT "** Washington **"
  18.         PRINT "    Population in 1980:  4,132,156"
  19.         PRINT "    Capital:  Olympia"
  20.         PRINT "    Statehood year:  1889"
  21.     CASE 2
  22.         PRINT "** Virginia **"
  23.         PRINT "    Population in 1980:  5,346,818"
  24.         PRINT "    Capital:  Richmond"
  25.         PRINT "    Statehood year:  1788"
  26.     CASE 3
  27.         PRINT "** Minnesota **"
  28.         PRINT "    Population in 1980:  4,075,970"
  29.         PRINT "    Capital:  St. Paul"
  30.         PRINT "    Statehood year:  1858"
  31.     CASE ELSE
  32.         PRINT "Please run the program again and select a number ";
  33.         PRINT "between 1 and 3."
  34. END SELECT
  35.  
  36.